home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / EXODUSCS.DSK / THIS IS NOT HERE.bas < prev    next >
BASIC Source File  |  2014-09-09  |  719b  |  16 lines
  1. 10  REM  DRAW PICTURE   
  2. 20  HGR : HCOLOR= 3
  3. 30  FOR I = 80 TO 160: HPLOT 0,I TO 279,I: NEXT 
  4. 40  HCOLOR= 0:CX = 140:CY = 50
  5. 50  FOR I = 1 TO 11: READ X,Y: HPLOT CX,CY TO X,Y: NEXT 
  6. 60 J = J +1:K = J ^2.5
  7. 70  IF 80 +K >160  THEN 90
  8. 80  HPLOT 0,80 +K TO 279,80 +K: GOTO 60
  9. 90  DATA 0,90,0,100,0,120,0,160,70,160,140,160,210,160,279,160,279,120,279,100,279,90
  10. 100  HCOLOR= 3
  11. 110  FOR I = 0 TO 30: HPLOT 0,I TO 279,I: NEXT 
  12. 120  HCOLOR= 0
  13. 130  FOR I = 1 TO 13: READ X,Y: HPLOT CX,CY TO X,Y: NEXT 
  14. 140  HPLOT 0,29 TO 279,29: HPLOT 0,25 TO 279,25: HPLOT 0,15 TO 279,15
  15. 150  DATA 0,25,0,15,0,5,30,0,70,0,105,0,140,0,175,0,210,0,250,0,279,5,279,15,279,25 
  16. 160  HCOLOR= 3: HPLOT CX -3,CY TO CX +3,CY: HPLOT CX,CY -3 TO CX,CY +3